10 GOSUB730:GOSUB570 20 DIMC%(3):C%(1)=28:C%(2)=5:C%(3)=154 30 Z$=CHR$(0):PP$=CHR$(27)+CHR$(74)+CHR$(4) 40 PRINT"[147] **[154]* [158]PRINT SHOP GRAPHIC PRINTER [154]***" 50 PRINT"[154]PUT P.S. DISK IN DRIVE 0: & PRESS A KEY" 60 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":SYS49489 70 GETA$:IFA$=""THEN70 80 GOSUB280 90 OPEN4,4,4:PRINT#4,CHR$(27)CHR$(51)CHR$(16)CHR$(7);:OPEN15,8,15:GR=0 100 PRINT#4,CHR$(27)CHR$(77)CHR$(5) 110 C=0:N$="":P$=" " 120 GOSUB170:OPEN1,8,10,"0:"+N$(GR)+",P":F=1:GOSUB200:IFF<>0THEN120 130 GOSUB170:OPEN2,8,11,"0:"+N$(GR)+",P":F=2:GOSUB200:IFF<>0THEN120 140 GOSUB170:OPEN3,8,12,"0:"+N$(GR)+",P":F=3:GOSUB200:IFF<>0THEN120 150 ONCGOSUB250,260,270 160 CLOSE1:CLOSE2:CLOSE3:GOTO110 170 IFGR=RTHENONCGOSUB250,260,270:CLOSE1:CLOSE2:CLOSE3:SYS49489:GOTO190 180 RETURN 190 PRINT#4:CLOSE15:PRINTTAB(16)"[154]*DONE[146][154]*":FORX=0TO9000:NEXT:CLR:GOTO20 200 GR=GR+1:INPUT#15,A$,B$,C$,D$:IFA$<>"00"THENPRINTA$,B$,C$,D$:CLOSEF:RETURN 210 GET#F,A$,B$:IF(ASC(A$+Z$)=0ANDASC(B$+Z$)=88)THEN:C=C+1:PRINT" "CHR$(C%(F))N$(GR-1);:F=0 220 IFF=0THENN$=N$(GR-1):N$=N$+" ":P$=P$+LEFT$(N$,17) 230 CLOSEF:RETURN 240 RETURN 250 PRINT:SYS49152:PRINT#4,P$;PP$:RETURN 260 PRINT:SYS49160:PRINT#4,P$;PP$:RETURN 270 PRINT:SYS49168:PRINT#4,P$;PP$:RETURN 280 DIMF$(120),N$(120),M$(120) 290 D=0:R=0:Q=0:E=0:G=1:EN=0 300 OPEN15,8,15,"IO":INPUT#15,EN,EM$:CLOSE15:IFEN=0THENGOTO320 310 IFEN>0THENPRINTEN;EM$;" OR UNFORMATTED DISK":END 320 OPEN1,8,0,"$0" 330 GET#1,A$,B$ 340 GET#1,A$,B$,A$,B$:C=0:V=0 350 IFA$<>""THENC=ASC(A$) 360 IFB$<>""THENC=C+ASC(B$)*256 370 F$(D)=MID$(STR$(C),2) 380 GET#1,B$:IFST<>0THEN:GOTO530 390 IFB$<>CHR$(34)THEN380 400 GET#1,B$:IFB$CHR$(96)THENB$=CHR$(42) 430 IFB$<>CHR$(34)THENN$(D)=N$(D)+B$:N$(D)=LEFT$(N$(D),16):GOTO400 440 GET#1,B$:IFB$=CHR$(32)THEN440 450 C$="" 460 C$=C$+B$:GET#1,B$ 470 IFB$<>""THEN460 480 IFLEN(C$)<3THENC$=C$+CHR$(32)+CHR$(32)+CHR$(32) 490 M$(D)=LEFT$(C$,3) 500 IF(F$(D)="3"ANDM$(D)="PRG")THEND=D+1:R=R+1:GOTO520 510 N$(D)="":F$(D)="":M$(D)="" 520 IFST=0THEN340 530 CLOSE1 540 FORLO=0TOR-1:PRINTTAB(8);""F$(LO);SPC(4-LEN(F$(LO)));"";N$(LO); 550 PRINTSPC(17-LEN(N$(LO)));"[154]";M$(LO);"[146]" 560 NEXTLO:PRINTTAB(10)"**[154]*"R"GRAPHICS [154]***":RETURN 570 PRINT"[147][154][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"; 590 PRINT"[194] THE FIRST AUTOMATIC PRINT SHOP [154][194]"; 600 PRINT"[194] GRAPHIC PRINTER [154][194]"; 610 PRINT"[194] BETA RELEASE V1.0 [154][194]"; 620 PRINT"[194][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][154][194]"; 630 PRINT"[194] [154][194]"; 640 PRINT"[194] BY: GREG SCHIEDLER [154][194]"; 650 PRINT"[194] 12906 DOWNS ROAD [154][194]"; 660 PRINT"[194] MT. ANGEL, OR 97362 [154][194]"; 670 PRINT"[194] [154][194]"; 680 PRINT"[194] FOR NON[154] COMMODORE GRAPHICS & [154][194]"; 690 PRINT"[194] GEMINI 10X / SG-10 PRINTER[146] [154][194]"; 700 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195]PRESS ANY KEY[146][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";:POKE198,0:SYS49489 710 GETA$:IFA$=""THEN710 720 RETURN 730 POKE53280,0:POKE53281,0:PRINTCHR$(142)CHR$(8):PRINT"[147]"SPC(14)"PLEASE WAIT" 731 FORX=49152TO49574:READA:POKEX,A:NEXT:RETURN 740 DATA169,1,141,169,193,76,21,192 750 DATA169,2,141,169,193,76,21,192 760 DATA169,3,141,169,193,169,7,141 770 DATA174,193,162,0,138,157,178,193 780 DATA157,10,194,157,98,194,232,224 790 DATA88,208,242,169,8,141,172,193 800 DATA169,0,141,173,193,169,8,141 810 DATA171,193,162,1,32,198,255,32 820 DATA228,255,141,175,193,32,204,255 830 DATA162,2,32,198,255,32,228,255 840 DATA141,176,193,32,204,255,162,3 850 DATA32,198,255,32,228,255,141,177 860 DATA193,32,204,255,174,173,193,173 870 DATA175,193,24,10,141,175,193,189 880 DATA178,193,42,157,178,193,173,176 890 DATA193,24,10,141,176,193,189,10 900 DATA194,42,157,10,194,173,177,193 910 DATA24,10,141,177,193,189,98,194 920 DATA42,157,98,194,238,173,193,173 930 DATA173,193,201,88,240,8,206,171 940 DATA193,240,146,76,100,192,206,172 950 DATA193,240,3,76,48,192,32,204 960 DATA255,162,4,32,201,255,173,174 970 DATA193,201,1,208,31,162,0,189 980 DATA178,193,41,240,157,178,193,189 990 DATA10,194,41,240,157,10,194,189 1000 DATA98,194,41,240,157,98,194,232 1010 DATA224,88,208,227,173,169,193,141 1020 DATA170,193,32,54,193,162,0,189 1030 DATA178,193,32,210,255,232,224,88 1040 DATA208,245,206,170,193,240,43,32 1050 DATA68,193,32,54,193,162,0,189 1060 DATA10,194,32,210,255,232,224,88 1070 DATA208,245,206,170,193,240,19,32 1080 DATA68,193,32,54,193,162,0,189 1090 DATA98,194,32,210,255,232,224,88 1100 DATA208,245,169,13,32,210,255,206 1110 DATA174,193,240,6,32,204,255,76 1120 DATA26,192,32,204,255,96,162,0 1130 DATA189,163,193,32,210,255,232,224 1140 DATA4,208,245,96,162,0,169,32 1150 DATA32,210,255,232,224,10,208,246 1160 DATA96,32,134,193,169,9,141,5 1170 DATA212,169,30,141,15,212,169,130 1180 DATA141,1,212,169,15,141,24,212 1190 DATA169,40,141,4,212,169,7,141 1200 DATA168,193,32,146,193,169,31,141 1210 DATA4,212,169,20,141,168,193,32 1220 DATA146,193,32,134,193,96,162,0 1230 DATA138,157,0,212,232,224,24,208 1240 DATA251,96,165,162,24,109,168,193 1250 DATA141,167,193,165,162,205,167,193 1260 DATA208,249,96,27,76,88,0